library(leaflet)
visited_sf %>%
mutate(label = paste("marvel at ", ParkCode, " and follow <a href = https://stackoverflow.com/>stack overflow</a>")) %>%
leaflet() %>%
addTiles(group = "OSM") %>%
addCircleMarkers(popup = ~label)
## Warning: sf layer has inconsistent datum (+proj=longlat +ellps=GRS80 +towgs84=0,0,0,0,0,0,0 +no_defs ).
## Need '+proj=longlat +datum=WGS84'
by Andy Krause
andy@andykrause.com